<html>
<head>
<title>CodigoLivre Exemplo Indique o Site</title>
</head>
<body>
<p>Nesta area aparece o conteudo da sua pagina
</p>
<hr>
<form action ="indique.asp" method="post">
<strong> Preencha os campos abaixo e indique a um amigo:</strong>
<br><b>Seu Nome:</b>
<input type="text" name="remetente" size= "30">
<br><b>E-mail do seu amigo:</b>
<input type = "text" name= "destinatario" size = "26">
<input type = hidden name="pagina" value = "http://www.scriptbrasil.com/">
<input type = submit value= "Indique este site a um amigo!">
</form>
</body>
</html>

indique.asp
<%
str_nome = trim(request.form("nome"))
str_remetente = trim(request.form("remetente"))
str_destinatario = trim(request.form("destinatario"))
str_assunto = "www.scriptbrasil.com.br"
endereco = request.form("pagina")
str_mensagem = "Acessei este site e achei interessante : < a href = " & endereco & ">" & endereco & "</a>"
set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = str_nome & "(" & str_remetente & ")"
mensagem.to = str_destinatario
mensagem.Subject = str_assunto
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = str_mensagem
mensagem.Send
response.write "<b> Dados da mensagem </b>"
response.write "<br><i> Remetente: </i> " & str_nome & " - " & str_remetente
response.write " <br><i> Destinatrio: </i> " & str_destinatario
response.write "<br><i> Assunto: </i> " & str_assunto
response.write "<br><i> Mensagem: </i> " & str_mensagem
response.write "<br><h2> Mensagem enviada com sucesso</h2>"
response.write "<br><strong><a href=" & endereco & "> Clique aqui para voltar! </a></strong>"
%>

